10 IF A=0 THEN A=1:LOAD"NERV",8,1
20 SYS49152
30 PRINT"[147][208][211][217][195][200][207][212][197][211][212] [201][201][201]":POKE53281,0:POKE53280,3:P=0
40 POKE808,225
50 PRINT:PRINT" [215]ILLKOMMEN ZUM [208]SYCHOTEST [201][201][201]."
60 PRINT:PRINT" [215]IEDER EINMAL STELLT DEIN [208]SYCHIATER"
70 PRINT:PRINT" [205]R. [202]OKER EINE [205]ENGE DUMME [198]RAGEN, UM"
80 PRINT:PRINT" EINE [193]NALYSE ZU MACHEN. [196]IESMAL GEHT "
90 PRINT:PRINT" ES UM [196]EINE [201]NTELLIGENZ!"
100 PRINT:PRINT:PRINT" [214]IEL [211]PASS!"
101 PRINT" [215]RITTEN BY [205]R. [202]OKER"
102 PRINT" [201]MPROVED BY [202]ACK THE [210]APPER"
103 PRINT" 1992[145]"
110 GET A$:IFA$="" THEN 110
120 PRINT"[147]":PRINT:PRINT" [215]ENN [196]U UM 8 [213]HR INS [194]ETT GEHST UND"
121 PRINT" [196]EINEN [215]ECKER SO STELLST, DASS ER [196]ICH"
122 PRINT" MORGENS UM 9 [213]HR WECKT, WIE VIELE"
123 PRINT" [211]TUNDEN KANNST [196]U DANN":PRINT" SCHLAFEN (0 - 9)?"
124 GETA$:IFA$=""THEN 124
125 IFA$="1"THEN PRINT" [210]ICHTIG!":P=P+1:GOTO 130
126 GOSUB60000
127 PRINT" [198]ALSCH, [196]U SCHLAEFST VON 8 - 9 [213]HR,":PRINT" ALSO EINE [211]TUNDE!"
130 PRINT:PRINT" [199]IBT ES IN [197]NGLAND DEN 17. [202]UNI? ([202]/[206])"
131 GETA$:IFA$=""THEN 131
132 IF A$="J" THEN PRINT" [193]BSOLUT KORREKT!":P=P+1:GOTO 140
133 IF A$="N" THEN PRINT" [206]ATUERLICH, [196]U [196]USSEL!":GOTO140
134 GOTO131
140 PRINT:PRINT" [215]IEVIELE [199]EBURTSTAGE HAT EIN":PRINT" [205]ENSCHENKIND (0 - 9)?"
141 GETA$:IFA$=""THEN 141
142 IFA$="1" THEN PRINT" [204]OGO!":P=P+1:GOTO 150
143 GOSUB50000
144 PRINT" [202]EDER [205]ENSCH HAT NUR EINEN [199]EBURTSTAG!":GOTO150
150 PRINT:INPUT" [215]IEVIELE [205]ONATE HABEN 28 [212]AGE";QW
152 IF QW=12THEN PRINT" [211]CHLAU!":P=P+1:GOTO 160
153 PRINT" [193]LLE [205]ONATE, DIE MEISTEN SOGAR MEHR!":GOTO160
160 PRINT:PRINT" [197]IN [194]AUER HAT 16 [211]CHAFE. [193]LLE STERBEN,"
161 INPUT" AUSSER 9. [215]IEVIELE BLEIBEN UEBRIG";WE
162 IF WE=9THEN PRINT" [203]LARO!":P=P+1:GOTO 170
163 PRINT" [215]IE GESAGT, NEUN, [196]U [201]DIOT!"
170 PRINT:PRINT" [201]ST ES IN DER [199][213][211] ERLAUBT, DASS EIN"
171 PRINT" [205]ANN DIE [211]CHWESTER SEINER [215]ITWE"
172 PRINT" HEIRATET ([202]/[206])?"
173 GETA$:IFA$=""THEN 173
174 IF A$="N" THEN PRINT" [215]IE SOLL ER AUCH?":P=P+1:GOTO 180
175 IFA$="J"THENPRINT" [203]ANN ER DOCH GAR NICHT! [197]R IST TOT!":GOTO180
176 GOTO173
180 PRINT:PRINT" [215]AS WAR AM 06.12.1943 DENN IN DER [211]TADT":INPUT"[145][194]ERLIN";ER$
181 IF ER$="[206]IKOLAUS" THEN PRINT" [213]ND OB!":P=P+1:GOTO 190
182 PRINT" [206]ATUERLICH [206]IKOLAUS!"
190 PRINT:PRINT" [194]ERLIN SCHREIBT MAN MIT [194], UND HINTEN"
191 PRINT" MIT [200]. [211]TIMMT DAS ([202]/[206])?"
192 GETA$:IFA$="" THEN 192
193 IF A$="J" THEN PRINT" [199]UT, [197]INSTEIN!":P=P+1:GOTO 200
194 IFA$="N"THENPRINT" [206]ATUERLICH SCHREIBT MAN HINTEN MIT [200]!":GOTO200
195 GOTO192
200 PRINT:PRINT" [197]IN [211]EGELFLUGZEUG STUERZT DIREKT AUF"
201 PRINT" DIE [199]RENZE ZWISCHEN [196]EUTSCHLAND UND"
202 PRINT" [207]ESTERREICH. [215]ER BEKOMMT DEN [205]OTOR?"
203 PRINT:PRINT" [193]: [196]EUTSCHLAND,"
204 PRINT" [194]: [207]ESTERREICH,"
205 PRINT" [195]: KEINER,"
206 PRINT" [196]: JEDER EINEN [212]EIL,"
207 PRINT" [197]: DER, DER DAS [198]LUGZEUG FINDET?"
208 GETA$:IFA$=""THEN 208
209 IFA$="C" THEN PRINT" [199]ENAU! [215]ELCHER [205]OTOR?":P=P+1:GOTO 220
210 GOSUB51000
211 PRINT" [197]IN [211]EGELFLUGZEUG HAT KEINEN [205]OTOR!"
220 PRINT:PRINT" [215]IEVIELE [212]IERE NAHM [205]OSES VON JEDEM "
221 PRINT" MIT AUF DIE [193]RCHE (0 - 9)?"
222 GETA$:IFA$=""THEN 222
223 IFA$="0"THEN PRINT" [210]ICHTIG, DAS WAR [206]OAH!":P=P+1:GOTO 230
224 GOSUB52000
225 PRINT" [196]U [196]USSEL, DAS WAR DOCH NICHT [205]OSES!"
230 PRINT:PRINT" [215]ENN EIN [206]ACHTWAECHTER AM [212]AGE STIRBT,"
231 PRINT" BEKOMMT ER DANN NOCH [210]ENTE ([202]/[206])?"
232 GETA$:IFA$="" THEN 232
233 IFA$="N" THEN PRINT" [215]OZU AUCH?":P=P+1:GOTO 240
234 IFA$="J"THENPRINT" [215]AS SOLL EIN [212]OTER MIT [210]ENTE?":GOTO240
235 GOTO232
240 PRINT:PRINT" [215]IE VIELE [211]TUNDEN KOMMST [196]U MIT 3 [212]A-"
241 PRINT" BLETTEN AUS, WENN [196]U JEDE [211]TUNDE EINE"
242 PRINT" NEHMEN SOLLST (0 - 9)?"
243 GETA$:IFA$=""THEN 243
244 IFA$="2" THEN PRINT" [199]UT GEZAEHLT!":P=P+1:GOTO 250
245 GOSUB53000
246 PRINT" [206]E, 2 [211]TUNDEN. [196]IE ERSTE NIMMST [196]U":PRINT" DOCH GLEICH!":GOTO250
250 PRINT:PRINT" [212]EILE 30 DURCH 1/2 UND ZAEHLE 30 DAZU!"
251 INPUT" [215]AS KOMMT HERAUS";RT
252 IF RT=90THEN PRINT" [210]ICHTIG!":P=P+1:GOTO 260
253 PRINT" 90, WEIL 30 DURCH 1/2 = 60 SIND!"
260 PRINT:PRINT" [201]N EINEM DUNKLEN [210]AUM LIEGEN"
261 PRINT" 8 [211]OCKEN! 4 SCHWARZE UND 4 WEISSE!"
262 PRINT" [215]IEVIELE [211]OCKEN MUSST [196]U MINDESTENS"
263 PRINT" NEHMEN, UM EIN [208]AAR GLEICHE ZU":PRINT" HABEN (0 - 9)?"
264 GETA$:IFA$=""THEN 264
265 IFA$="3" THEN PRINT" [202]OU, [194]ABY, [202]OU!":P=P+1:GOTO 270
266 GOSUB54000
267 PRINT" 3 REICHEN. [218]WEI GLEICHFARBIGE SIND DANN":PRINT"[145]IMMER DABEI!"
270 PRINT:PRINT" [203]ANN EIN [205]ANN, DER IN [206]EW [217]ORK LEBT,"
271 PRINT" IN [205]ANCHESTER BEGRABEN WERDEN ([202]/[206])?"
272 GETA$:IFA$=""THEN 272
273 IFA$="N" THEN PRINT" [197]R LEBT JA NOCH, NE?":P=P+1:GOTO 280
274 IFA$="J"THENPRINT" [211]EIT WANN WERDEN [204]EBENDE BEGRABEN?":GOTO280
275 GOTO272
280 PRINT:PRINT" [201]N EINEM [196]ORF STEHT EIN 20 [218]ENTNER"
281 PRINT" SCHWERER [211]TEIN, UND WENN MORGENS DER"
282 PRINT" [200]AHN KRAEHT, BEWEGT ER SICH."
283 PRINT" [201]ST DAS MOEGLICH ([202]/[206])?"
284 GETA$:IFA$="" THEN 284
285 IFA$="J" THEN PRINT" [206]ATUERLICH BEWEGT SICH DER [200]AHN!":P=P+1:GOTO 290
286 IFA$="N"THENPRINT" [206]ATUERLICH BEWEGT SICH DER [200]AHN BEIM":PRINT" KRAEHEN!":GOTO290
287 GOTO284
290 PRINT:PRINT" [201]ST ES MOEGLICH, DASS EIN [198]ERNSEHER"
291 PRINT" OHNE [211]TROM FUNKTIONIERT ([202]/[206])?"
292 GETA$:IFA$="" THEN 292
293 IFA$="N" THEN PRINT" [206]ATUERLICH NICHT!":P=P+1:GOTO 300
294 IFA$="J"THENPRINT" [211]EIT WANN GEHT DAS DENN?":GOTO300
295 GOTO292
300 PRINT:PRINT" [197]IN [193]RCHAEOLOGE BEHAUPTET, EINE [205]UENZE"
301 PRINT" MIT DEN [208]RAEGDATEN 46 VOR [195]HRISTUS"
302 PRINT" GEFUNDEN ZU HABEN. [201]ST DAS UEBERHAUPT":PRINT" MOEGLICH ([202]/[206])?"
303 GETA$:IFA$=""THEN 303
304 IFA$="N" THEN PRINT" [206]UR GERATEN, WAS?":P=P+1:GOTO 310
305 IFA$="J"THENPRINT" [215]OHER SOLLTE MAN DAMALS GEWUSST HABEN,":GOTO307
306 GOTO303
307 PRINT" DASS IN 46 [202]AHREN [202]ESUS GEBOREN WIRD?"
310 PRINT:PRINT" '[196]U BIST MEIN [211]OHN, ABER ICH NICHT"
311 INPUT" [196]EIN [214]ATER.' [215]ER SAGT DAS";TY$
312 IF TY$="[205]UTTER" THEN PRINT" [210]ICHTIG!":P=P+1:GOTO 320
313 IF TY$="DIE [205]UTTER" THEN PRINT" [202]A!":P=P+1:GOTO 320
314 PRINT" [196]IE [205]UTTER, [196]U [200]INNACK!"
320 PRINT:PRINT" [196]U HAST EIN [200]AUS, BEI DEM ALLE [215]AENDE"
321 PRINT" NACH [211]UEDEN ZEIGEN. [197]IN [194]AER KOMMT"
322 INPUT" VORBEI. [215]ELCHE [198]ARBE HAT ER";YU$
323 IF YU$="WEISS"THEN PRINT" [211]CHLAU!":P=P+1:GOTO 330
324 PRINT" [215]EISS, WEIL NUR AM [206]ORDPOL ALLE [215]AENDE"
325 PRINT" NACH [211]UEDEN ZEIGEN!"
330 PRINT:PRINT" [197]INE ELEKTRISCHE [197]ISENBAHN FAEHRT NACH"
331 PRINT" [206]ORDEN. [201]N WELCHE [210]ICHTUNG STEIGT DER"
332 INPUT" [210]AUCH";UI$
333 IF UI$="KEINE" THEN PRINT" [199]ENAU!":P=P+1:GOTO 340
334 IF UI$="IN KEINE" THEN PRINT" [199]ENAU!":P=P+1:GOTO 340
335 PRINT" [197]INE ELEKTRISCHE [197]ISENBAHN "
336 PRINT" RAUCHT NICHT!"
340 PRINT:PRINT" [200]AT DIE [205]USIK DICH GENERVT ([202]/[206])?"
341 GETA$:IFA$=""THEN 341
342 IFA$="N" THEN 350
343 IFA$="J"THEN345
344 GOTO341
345 PRINT:PRINT" [200]AST [196]U [201]DIOT DEN [212]ON ABGESTELLT ([202]/[206])?"
346 GETA$:IFA$=""THEN 346
347 IFA$="J" THEN GOTO350
348 IFA$="N"THENPRINT" [215]IESO NICHT, DU [211]PACKEN?":P=P-1:GOTO350
349 GOTO346
350 PRINT:PRINT" [211]O, DAS WAR ES AUCH SCHON!"
351 PRINT" [197]S FOLGT DEIN [212]ESTERGEBNIS!"
352 PRINT:PRINT" [196]RUECKE [211]PACE!"
353 GETA$:IFA$=""THEN 353
354 IFA$<>" " THEN PRINT" [211]PACE, [196]U [206]IETE!":P=P-1:GOTO 353
360 PRINT"[147]":PRINT" [196]U HAST GENAU ";P;" VON 21 [208]UNKTEN!"
361 IF P=21 THEN F$="TOTAL INTELLIGENT"
362 IF P=20 THEN F$="SEHR INTELLIGENT"
363 IF P=19 THEN F$="INTELLIGENT"
364 IF P=18 THEN F$="SEHR SCHLAU"
365 IF P=17 THEN F$="ZIEMLICH SCHLAU"
366 IF P=16 THEN F$="SCHLAU"
367 IF P=15 THEN F$="GERADE NOCH SCHLAU"
368 IF P=14 THEN F$="EIN BISCHEN DUMM"
369 IF P=13 THEN F$="DUMM"
370 IF P=12 THEN F$="ZIEMLICH DUMM"
371 IF P=11 THEN F$="WIRKLICH DUMM"
372 IF P=10 THEN F$="SAUDOOF"
373 IF P=8  THEN F$="SCHRECKLICH DOOF"
374 IF P=7  THEN F$="TOTAL IDIOTISCH"
375 IF P=6  THEN F$="VOLLIDIOTISCH"
376 IF P=5  THEN F$="HIRNLOS"
377 IF P=4  THEN F$="TOTAL HIRNLOS"
378 IF P=3  THEN F$="HILFLOS SCHEISSE"
379 IF P=<3 THEN F$="ANSTALTSREIF"
380 PRINT" [196]IESES [197]RGEBNIS SAGT AUS, DASS [196]U"
381 PRINT" ";F$;" BIST!"
382 PRINT:PRINT" [193]UF [215]IEDERSEHEN UND TROTZDEM EINEN"
383 PRINT" SCHOENEN [212]AG!         [205]R. [202]OKER!"
384 GOTO384
50000 IFA$="0"THENRETURN
50001 IFA$="2"THENRETURN
50002 IFA$="3"THENRETURN
50003 IFA$="4"THENRETURN
50004 IFA$="5"THENRETURN
50005 IFA$="6"THENRETURN
50006 IFA$="7"THENRETURN
50007 IFA$="8"THENRETURN
50008 IFA$="9"THENRETURN
50009 GOTO141
51000 IFA$="A"THENRETURN
51001 IFA$="B"THENRETURN
51002 IFA$="D"THENRETURN
51003 IFA$="E"THENRETURN
51004 GOTO208
52000 IFA$="1"THENRETURN
52001 IFA$="2"THENRETURN
52002 IFA$="3"THENRETURN
52003 IFA$="4"THENRETURN
52004 IFA$="5"THENRETURN
52005 IFA$="6"THENRETURN
52006 IFA$="7"THENRETURN
52007 IFA$="8"THENRETURN
52008 IFA$="9"THENRETURN
52009 GOTO222
53000 IFA$="0"THENRETURN
53001 IFA$="1"THENRETURN
53002 IFA$="3"THENRETURN
53003 IFA$="4"THENRETURN
53004 IFA$="5"THENRETURN
53005 IFA$="6"THENRETURN
53006 IFA$="7"THENRETURN
53007 IFA$="8"THENRETURN
53008 IFA$="9"THENRETURN
53009 GOTO243
54000 IFA$="0"THENRETURN
54001 IFA$="1"THENRETURN
54002 IFA$="2"THENRETURN
54003 IFA$="4"THENRETURN
54004 IFA$="5"THENRETURN
54005 IFA$="6"THENRETURN
54006 IFA$="7"THENRETURN
54007 IFA$="8"THENRETURN
54008 IFA$="9"THENRETURN
54009 GOTO264
60000 IFA$="0"THENRETURN
60001 IFA$="2"THENRETURN
60002 IFA$="3"THENRETURN
60003 IFA$="4"THENRETURN
60004 IFA$="5"THENRETURN
60005 IFA$="6"THENRETURN
60006 IFA$="7"THENRETURN
60007 IFA$="8"THENRETURN
60008 IFA$="9"THENRETURN
60009 GOTO124